home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / rpc / clnt.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.6 KB  |  75 lines
  1. if (!defined &_CLNT_) {
  2.     eval 'sub _CLNT_ {1;}';
  3.     eval 'sub re_errno { &ru. &RE_errno;}';
  4.     eval 'sub re_why { &ru. &RE_why;}';
  5.     eval 'sub re_vers { &ru. &RE_vers;}';
  6.     eval 'sub re_lb { &ru. &RE_lb;}';
  7.     eval 'sub CLNT_CALL {
  8.         local($rh, $proc, $xargs, $argsp, $xres, $resp, $secs) = @_;
  9.         eval "((*($rh)-> &cl_ops-> &cl_call)($rh, $proc, $xargs, $argsp, $xres, $resp, $secs))";
  10.     }';
  11.     eval 'sub clnt_call {
  12.         local($rh, $proc, $xargs, $argsp, $xres, $resp, $secs) = @_;
  13.         eval "((*($rh)-> &cl_ops-> &cl_call)($rh, $proc, $xargs, $argsp, $xres, $resp, $secs))";
  14.     }';
  15.     eval 'sub CLNT_ABORT {
  16.         local($rh) = @_;
  17.         eval "((*($rh)-> &cl_ops-> &cl_abort)($rh))";
  18.     }';
  19.     eval 'sub clnt_abort {
  20.         local($rh) = @_;
  21.         eval "((*($rh)-> &cl_ops-> &cl_abort)($rh))";
  22.     }';
  23.     eval 'sub CLNT_GETERR {
  24.         local($rh,$errp) = @_;
  25.         eval "((*($rh)-> &cl_ops-> &cl_geterr)($rh, $errp))";
  26.     }';
  27.     eval 'sub clnt_geterr {
  28.         local($rh,$errp) = @_;
  29.         eval "((*($rh)-> &cl_ops-> &cl_geterr)($rh, $errp))";
  30.     }';
  31.     eval 'sub CLNT_FREERES {
  32.         local($rh,$xres,$resp) = @_;
  33.         eval "((*($rh)-> &cl_ops-> &cl_freeres)($rh,$xres,$resp))";
  34.     }';
  35.     eval 'sub clnt_freeres {
  36.         local($rh,$xres,$resp) = @_;
  37.         eval "((*($rh)-> &cl_ops-> &cl_freeres)($rh,$xres,$resp))";
  38.     }';
  39.     eval 'sub CLNT_CONTROL {
  40.         local($cl,$rq,$in) = @_;
  41.         eval "((*($cl)-> &cl_ops-> &cl_control)($cl,$rq,$in))";
  42.     }';
  43.     eval 'sub clnt_control {
  44.         local($cl,$rq,$in) = @_;
  45.         eval "((*($cl)-> &cl_ops-> &cl_control)($cl,$rq,$in))";
  46.     }';
  47.     eval 'sub CLSET_TIMEOUT {1;}';
  48.     eval 'sub CLGET_TIMEOUT {2;}';
  49.     eval 'sub CLGET_SERVER_ADDR {3;}';
  50.     eval 'sub CLSET_RETRY_TIMEOUT {4;}';
  51.     eval 'sub CLGET_RETRY_TIMEOUT {5;}';
  52.     eval 'sub CLSET_RETRY_COUNT {6;}';
  53.     eval 'sub CLGET_RETRY_COUNT {7;}';
  54.     eval 'sub CLSET_RETRY_DELAY {8;}';
  55.     eval 'sub CLGET_RETRY_DELAY {9;}';
  56.     eval 'sub RETRYCOUNTDFL {0;}';
  57.     eval 'sub RETRYDELAYDFL {60;}';
  58.     eval 'sub CLNT_DESTROY {
  59.         local($rh) = @_;
  60.         eval "((*($rh)-> &cl_ops-> &cl_destroy)($rh))";
  61.     }';
  62.     eval 'sub clnt_destroy {
  63.         local($rh) = @_;
  64.         eval "((*($rh)-> &cl_ops-> &cl_destroy)($rh))";
  65.     }';
  66.     eval 'sub RPCTEST_PROGRAM {(( &u_long)1);}';
  67.     eval 'sub RPCTEST_VERSION {(( &u_long)1);}';
  68.     eval 'sub RPCTEST_NULL_PROC {(( &u_long)2);}';
  69.     eval 'sub RPCTEST_NULL_BATCH_PROC {(( &u_long)3);}';
  70.     eval 'sub NULLPROC {(( &u_long)0);}';
  71.     eval 'sub UDPMSGSIZE {8800;}';
  72.     eval 'sub RPCSMALLMSGSIZE {400;}';
  73. }
  74. 1;
  75.